home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / cdity / availmem2.lha / AvailMem2 / Install_AvailMem2.0 < prev    next >
Text File  |  1992-09-02  |  2KB  |  77 lines
  1. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  2. (set osver (/ (getversion "LIBS:version.library") 65536))
  3.  
  4. (set #about (cat "\n\n" 
  5.                  "      Welcome to\n\n"
  6.                  "    AvailMem 2.0\n\n"
  7.                  "Copyright © 1996-1997 Jesper Svennevid\n\n"
  8.             ) 
  9. )
  10. (set #whereAvailMem "Where do you wish to install AvailMem 2.0? The program should preferable be placed in WBStartup.")
  11. (set #Source "Don't forget that the source is included in this archive.")
  12. (set #byebye (cat "\nAvailMem 2.0 Install Complete!\n\n" ))
  13.  
  14. ;********************************************************************
  15. ; Hello
  16. ;********************************************************************
  17. (message #about)
  18. (welcome) 
  19.  
  20. (complete 0)
  21.  
  22. ;********************************************************************
  23. ; Ask where to put AvailMem
  24. ;********************************************************************
  25. (set AvailMemDir  (askdir (prompt #whereAvailMem)
  26.                 (help   #whereAvailMem)
  27.                      (default "SYS:WBStartup")
  28.                )  
  29. )
  30.  
  31. (set where AvailMemDir)
  32.  
  33. ;********************************************************************
  34. ; Copy over AvailMem and Icon
  35. ;********************************************************************
  36. (copyfiles (source "bin/AvailMem2") (dest where) (infos) (optional "nofail") )
  37.  
  38. (complete 50)
  39.  
  40. ;********************************************************************
  41. ; Ask and and copy docs if wanted!
  42. ;********************************************************************
  43. (set docs (askoptions (choices " AvailMem2_sve.guide" " AvailMem2_eng.guide")
  44.                (prompt #whatdocs)
  45.                        (help #whatdocs)
  46.                    (default 3)
  47.       )
  48. )
  49.  
  50. (if (<> docs 0)
  51.  (
  52.    (set docsdir (askdir (prompt #wheredocs)
  53.                (help   #wheredocs)
  54.                     (default where)
  55.                 )  
  56.    )
  57.  
  58.    (if (IN docs 0) (copyfiles (source "doc/AvailMem2_sve.guide") (dest docsdir) (infos) (optional "nofail") ) )
  59.    (if (IN docs 1) (copyfiles (source "doc/AvailMem2_eng.guide") (dest docsdir) (infos) (optional "nofail") ) )
  60.  
  61.  )
  62. )
  63.  
  64. ;********************************************************************
  65. ; tell about the source!
  66. ;********************************************************************
  67.  
  68. (complete 95)
  69.  
  70. (message #Source)
  71.  
  72. (complete 100)
  73. ;********************************************************************
  74. ; End Bye 
  75. ;********************************************************************
  76. (exit #byebye)
  77.